home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Palindr < prev    next >
Encoding:
Text File  |  1985-10-20  |  575 b   |  27 lines  |  [TEXT/TRUE]
  1. ! Check for palindromes.
  2. !
  3. DO
  4.    PRINT "The phrase";
  5.    LINE INPUT phrase$                 ! No error-checking
  6.  
  7.    IF phrase$ = "" THEN STOP          ! Stop on null string
  8.  
  9.    LET reversed$ = ""                 ! Initialize reversed$  
  10.    FOR i = Len(phrase$) to 1 step -1  ! Go thru backwards
  11.  
  12.       LET reversed$ = reversed$ & phrase$[i:i]   ! Getting chars
  13.  
  14.    NEXT i
  15.  
  16.    PRINT "That's: "; reversed$   
  17.    IF reversed$ = phrase$ THEN        ! Check reversed & original
  18.       PRINT "It's a palindrome."
  19.    ELSE
  20.       PRINT "Not a palindrome."
  21.    END IF
  22.    PRINT
  23.  
  24. LOOP
  25.  
  26. END
  27.